
Public Class frmDsgnrGnrtr

  Private mObjClsGenerateElement As New tcmar02l
  Private mClnControlCollection As New Collection
  Private mObjGenerateDesigner As New clsGenerateDesigner
  Private mObjClsFormDtls As New clsFormDtls

  Private Sub cmdGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGenerate.Click

    Dim lBlnDataExistCndn As Boolean = False


    mPrRefreshConn()

    mObjClsGenerateElement.pvvd_init(txtFormIdentification.Text)
    mClnControlCollection = mObjClsGenerateElement.mFnControlCollection
    mObjClsFormDtls.mStrFormSerialNumber = txtFormIdentification.Text
    mObjClsFormDtls.mPrSelect(lBlnDataExistCndn)
    If lBlnDataExistCndn = True Then
      With mObjClsFormDtls
        mObjGenerateDesigner.mPrControlCollection(mClnControlCollection _
                                                , .mStrFormName _
                                                , .mStrParentForm _
                                                , .mStrFormDscrpn _
                                                , .mIntFormHght _
                                                , .mIntFormWdth)
      End With

    Else
      MessageBox.Show("Form Does Not Exist")
    End If

    mObjClsFormDtls.mPrCloseDB()

    txtFormIdentification.Text = ""

  End Sub


End Class
